home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / takeout2.prg < prev    next >
Encoding:
Text File  |  1994-06-29  |  47.2 KB  |  1,691 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. new = FCREATE("Rmxdta.txt")
  5. bio = FCREATE("bioinfo.txt")
  6. handle = FOPEN("NAME.dat")
  7. *
  8. *IF handle < 0
  9. *    DEFINE WINDOW alert FROM 7,17 TO 12,60 DOUBLE COLOR SCHEME 7
  10.     
  11. *    DO CASE
  12. *        CASE FERROR() = 4
  13. *            reason = 'Too many files Open'
  14. *        CASE FERROR() = 5
  15. *            reason = 'Access Denied'
  16. *        CASE FERROR() = 8
  17. *            reason = 'Out of Memory'
  18. *        CASE FERROR() = 31
  19. *            reason = 'GENERAL FAILURE'
  20. *    ENDCASE
  21.     
  22. *   CANCEL
  23.     
  24. * ENDIF
  25.  
  26. Count = 0
  27.  
  28. DO WHILE Count <= 300       && NOT FEOF(handle)
  29.  
  30.     Region = FREAD(handle, 2)
  31.     Office = FREAD(handle, 3)
  32.     Number = FREAD(handle, 3)
  33.     Unique = FREAD(handle,12)
  34.     Name = FREAD(handle, 30)
  35.     Nick = FREAD(handle, 20)
  36.     Title = FREAD(handle, 2)
  37.     Posistion = FREAD(handle, 30)
  38.     Spec1 = FREAD(handle, 3)
  39.     Spec2 = FREAD(handle, 3)
  40.     Lang1 = FREAD(handle, 20)
  41.     Lang2 = FREAD(handle, 20)
  42.     Lang3 = FREAD(handle, 20)
  43.     License = FREAD(handle, 4)
  44.     Join = FREAD(handle, 4)
  45.     Sales = FREAD(handle, 6)
  46.     Desig1 = FREAD(handle, 6)
  47.     Desig2 = FREAD(handle, 6)
  48.     Desig3 = FREAD(handle, 6)
  49.     Desig4 = FREAD(handle, 6)
  50.     Desig5 = FREAD(handle, 6)
  51.     Desig6 = FREAD(handle, 6)
  52.     Club = FREAD(handle, 4)
  53.     ROF = FREAD(handle, 12)
  54.     Comm1 = UPPER(FREAD(handle, 1))
  55.     Comm2 = UPPER(FREAD(handle, 1))
  56.     Comm3 = UPPER(FREAD(handle, 1))
  57.     Comm4 = UPPER(FREAD(handle, 1))
  58.     Comm5 = UPPER(FREAD(handle, 1))
  59.     skip = FSEEK(handle, 5, 1)
  60.     OffName = FREAD(handle, 30)
  61.     OffAdd1 = FREAD(handle, 30)
  62.     OffAdd2 = FREAD(handle, 30)
  63.     City = FREAD(handle, 17)
  64.     State = FREAD(handle, 2)
  65.     Zip = FREAD(handle, 10)
  66.     Country = FREAD(handle, 20)
  67.     Phone1 = FREAD(handle, 12)
  68.     Phone2 = FREAD(handle, 12)
  69.     Phone3 = FREAD(handle, 12)
  70.     Phone4 = FREAD(handle, 12)
  71.     FAX = FREAD(handle, 12)
  72.     Service1 = FREAD(handle, 20)
  73.     Service2 = FREAD(handle, 20)
  74.     Service3 = FREAD(handle, 20)
  75.     Service4 = FREAD(handle, 20)
  76.     Open = FREAD(handle, 6)
  77.     ADI = FREAD(handle, 20)
  78.     Page = FREAD(handle, 4)
  79.     Coor = FREAD(handle, 2)
  80.     OffType = FREAD(handle, 2)
  81.     CityOver = FREAD(handle, 17)
  82.     RosterSta = FREAD(handle, 30)
  83.     Rams = FREAD(handle, 15)
  84.     Achiev = FREAD(handle, 20)
  85.     COMPUSERV = FREAD(handle, 17)
  86.  
  87. * START READING BIO INFO    
  88.  
  89.     PhoneLoc = FREAD(handle, 12)
  90.     HomePhone = FREAD(handle, 12)
  91.     AgntFax = FREAD(handle, 12)
  92.     AgntPager = FREAD(handle, 12)
  93.     AgntMobile = FREAD(handle, 12)
  94.     CIVIC1 = UPPER(FREAD(handle, 4))
  95.     CIVIC2 = UPPER(FREAD(handle, 4))
  96.     CIVIC3 = UPPER(FREAD(handle, 4))
  97.     HOBBY1 = UPPER(FREAD(handle, 4))
  98.     HOBBY2 = UPPER(FREAD(handle, 4))
  99.     HOBBY3 = UPPER(FREAD(handle, 4))
  100.     MEMBER1 = FREAD(handle, 4)
  101.     MEMBER2 = FREAD(handle, 4)
  102.     MEMBER3 = FREAD(handle, 4)
  103.     Area1 = FREAD(handle, 20)
  104.     Area2 = FREAD(handle, 20)
  105.     Area3 = FREAD(handle, 20)
  106.     Area4 = FREAD(handle, 20)
  107.     Area5 = FREAD(handle, 20)
  108.     Education = FREAD(handle, 15)
  109.     Desig1 = FREAD(handle, 10)
  110.     Desig2 = FREAD(handle, 10)
  111.     Desig3 = FREAD(handle, 10)
  112.     Career = FREAD(handle, 40)
  113.     Price_fr = FREAD(handle, 12)
  114.     Price_to = FREAD(handle, 12)
  115.     Pref = FREAD(handle, 1)
  116.     Referal1 = FREAD(handle, 1)
  117.     Referal2 = FREAD(handle, 1)
  118.     Referal3 = FREAD(handle, 1)
  119.     Referal4 = FREAD(handle, 1)
  120.     ERCPaper = FREAD(handle, 1)
  121.     Welcomekit = FREAD(handle, 1)
  122.     Relocations = FREAD(handle, 5)
  123.     Picture = FREAD(handle, 1)
  124.     EntryDate = FREAD(handle, 6)
  125.     BioSubs = FREAD(handle, 10)
  126.     Info = FGETS(handle, 480)
  127.     
  128. * START WRITING TO "new"
  129.     
  130.     =FWRITE(new, M.Region)
  131.     =FWRITE(new, ',')
  132.     =FWRITE(new, M.Office)
  133.     =FWRITE(new, ',')
  134.     =FWRITE(new, M.Number)
  135.     =FWRITE(new, ',')    
  136.     =FWRITE(new, M.Unique)
  137.     =FWRITE(new, ',')    
  138.     =FWRITE(new, '"'+TRIM(M.Name)+'"')
  139.     =FWRITE(new, ',')    
  140.  
  141.     IF NOT EMPTY(TRIM(M.Nick))
  142.         =FWRITE(new, '"'+TRIM(M.Nick)+'",')
  143.     ELSE
  144.         =FWRITE(new, ',')
  145.     ENDIF
  146.  
  147.     IF NOT EMPTY(TRIM(M.Title))
  148.         =FWRITE(new, TRIM(M.Title)+',')
  149.     ELSE
  150.         =FWRITE(new, ',')
  151.     ENDIF
  152.  
  153.     IF NOT EMPTY(TRIM(M.Posistion))
  154.         =FWRITE(new, '"'+TRIM(M.Posistion)+'",')
  155.     ELSE
  156.         =FWRITE(new, ',')
  157.     ENDIF
  158.     
  159.     IF NOT EMPTY(TRIM(M.Spec1))
  160.         =FWRITE(new, '"'+TRIM(M.Spec1)+'",')
  161.     ELSE
  162.         =FWRITE(new, ',')
  163.     ENDIF
  164.         
  165.     IF NOT EMPTY(TRIM(M.Spec2))
  166.         =FWRITE(new, '"'+TRIM(M.Spec2)+'",')
  167.     ELSE
  168.         =FWRITE(new, ',')
  169.     ENDIF
  170.         
  171.     IF NOT EMPTY(TRIM(M.Lang1))
  172.         =FWRITE(new, '"'+TRIM(M.Lang1)+'",')
  173.     ELSE
  174.         =FWRITE(new, ',')
  175.     ENDIF
  176.         
  177.     IF NOT EMPTY(TRIM(M.Lang2))
  178.         =FWRITE(new, '"'+TRIM(M.Lang2)+'",')
  179.     ELSE
  180.         =FWRITE(new, ',')
  181.     ENDIF
  182.         
  183.     IF NOT EMPTY(TRIM(M.Lang3))
  184.         =FWRITE(new, '"'+TRIM(M.Lang3)+'",')
  185.     ELSE
  186.         =FWRITE(new, ',')
  187.     ENDIF
  188.         
  189.     IF NOT EMPTY(TRIM(M.License))
  190.         =FWRITE(new, TRIM(M.License)+',')
  191.     ELSE
  192.         =FWRITE(new, ',')
  193.     ENDIF
  194.         
  195.     IF NOT EMPTY(TRIM(M.Join))
  196.         =FWRITE(new, TRIM(M.Join)+',')
  197.     ELSE
  198.         =FWRITE(new, ',')
  199.     ENDIF
  200.         
  201.     IF NOT EMPTY(TRIM(M.Sales))
  202.         =FWRITE(new, TRIM(M.Sales)+',')
  203.     ELSE
  204.         =FWRITE(new, ',')
  205.     ENDIF
  206.         
  207.     IF NOT EMPTY(TRIM(M.Desig1))
  208.         =FWRITE(new, '"'+TRIM(M.Desig1)+'",')
  209.     ELSE
  210.         =FWRITE(new, ',')
  211.     ENDIF
  212.         
  213.     IF NOT EMPTY(TRIM(M.Desig1))
  214.         =FWRITE(new, '"'+TRIM(M.Desig1)+'",')
  215.     ELSE
  216.         =FWRITE(new, ',')
  217.     ENDIF
  218.         
  219.     IF NOT EMPTY(TRIM(M.Desig2))
  220.         =FWRITE(new, '"'+TRIM(M.Desig2)+'",')
  221.     ELSE
  222.         =FWRITE(new, ',')
  223.     ENDIF
  224.  
  225.     IF NOT EMPTY(TRIM(M.Desig3))
  226.         =FWRITE(new, '"'+TRIM(M.Desig3)+'",')
  227.     ELSE
  228.         =FWRITE(new, ',')
  229.     ENDIF
  230.  
  231.     IF NOT EMPTY(TRIM(M.Desig4))
  232.         =FWRITE(new, '"'+TRIM(M.Desig4)+'",')
  233.     ELSE
  234.         =FWRITE(new, ',')
  235.     ENDIF
  236.  
  237.     IF NOT EMPTY(TRIM(M.Desig5))
  238.         =FWRITE(new, '"'+TRIM(M.Desig5)+'",')
  239.     ELSE
  240.         =FWRITE(new, ',')
  241.     ENDIF
  242.  
  243.     IF NOT EMPTY(TRIM(M.Desig6))
  244.         =FWRITE(new, '"'+TRIM(M.Desig6)+'",')
  245.     ELSE
  246.         =FWRITE(new, ',')
  247.     ENDIF
  248.  
  249.     IF NOT EMPTY(TRIM(M.Club))
  250.         =FWRITE(new, '"'+TRIM(M.Club)+'",')
  251.     ELSE
  252.         =FWRITE(new, ',')
  253.     ENDIF
  254.  
  255.     IF NOT EMPTY(TRIM(M.ROF))
  256.         =FWRITE(new, '"'+TRIM(M.ROF)+'",')
  257.     ELSE
  258.         =FWRITE(new, ',')
  259.     ENDIF
  260.  
  261.     IF NOT EMPTY(TRIM(M.Comm1))
  262.         DO CASE
  263.             CASE M.Comm1 == 'A'
  264.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  265.             CASE M.Comm1 == 'B'
  266.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  267.             CASE M.Comm1 == 'C'
  268.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  269.             CASE M.Comm1 == 'D'
  270.                 =FWRITE(new, '"Business Opportunities",')
  271.             CASE M.Comm1 == 'E'
  272.                 =FWRITE(new, '"Condo Conversions",')
  273.             CASE M.Comm1 == 'F'
  274.                 =FWRITE(new, '"Development",')
  275.             CASE M.Comm1 == 'G'
  276.                 =FWRITE(new, '"Exchanging",')
  277.             CASE M.Comm1 == 'H'
  278.                 =FWRITE(new, '"Farm and Land",')
  279.             CASE M.Comm1 == 'I'
  280.                 =FWRITE(new, '"Foreign Investment Property",')
  281.             CASE M.Comm1 == 'J'
  282.                 =FWRITE(new, '"General Commercial",')
  283.             CASE M.Comm1 == 'K'
  284.                 =FWRITE(new, '"Health Care Faculties",')
  285.             CASE M.Comm1 == 'L'
  286.                 =FWRITE(new, '"Hotels/Motels",')
  287.             CASE M.Comm1 == 'M'
  288.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  289.             CASE M.Comm1 == 'N'
  290.                 =FWRITE(new, '"Leasing",')
  291.             CASE M.Comm1 == 'O'
  292.                 =FWRITE(new, '"Mobile Home Parks",')
  293.             CASE M.Comm1 == 'P'
  294.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  295.             CASE M.Comm1 == 'Q'
  296.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  297.             CASE M.Comm1 == 'R'
  298.                 =FWRITE(new, '"Other",')
  299.             CASE M.Comm1 == 'S'
  300.                 =FWRITE(new, '"Restaurant",')
  301.             CASE M.Comm1 == 'T'
  302.                 =FWRITE(new, '"Retirement Properties/Communities",')
  303.             CASE M.Comm1 == 'U'
  304.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  305.             CASE M.Comm1 == 'V'
  306.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  307.             CASE M.Comm1 == 'W'
  308.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  309.             CASE M.Comm1 == 'X'
  310.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  311.             CASE M.Comm1 == 'Y'
  312.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  313.             OTHERWISE
  314.                 =FWRITE(new, ',')
  315.         ENDCASE
  316.     ENDIF
  317.  
  318.     IF NOT EMPTY(TRIM(M.Comm2))
  319.         DO CASE
  320.             CASE M.Comm2 == 'A'
  321.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  322.             CASE M.Comm2 == 'B'
  323.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  324.             CASE M.Comm2 == 'C'
  325.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  326.             CASE M.Comm2 == 'D'
  327.                 =FWRITE(new, '"Business Opportunities",')
  328.             CASE M.Comm2 == 'E'
  329.                 =FWRITE(new, '"Condo Conversions",')
  330.             CASE M.Comm2 == 'F'
  331.                 =FWRITE(new, '"Development",')
  332.             CASE M.Comm2 == 'G'
  333.                 =FWRITE(new, '"Exchanging",')
  334.             CASE M.Comm2 == 'H'
  335.                 =FWRITE(new, '"Farm and Land",')
  336.             CASE M.Comm2 == 'I'
  337.                 =FWRITE(new, '"Foreign Investment Property",')
  338.             CASE M.Comm2 == 'J'
  339.                 =FWRITE(new, '"General Commercial",')
  340.             CASE M.Comm2 == 'K'
  341.                 =FWRITE(new, '"Health Care Faculties",')
  342.             CASE M.Comm2 == 'L'
  343.                 =FWRITE(new, '"Hotels/Motels",')
  344.             CASE M.Comm2 == 'M'
  345.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  346.             CASE M.Comm2 == 'N'
  347.                 =FWRITE(new, '"Leasing",')
  348.             CASE M.Comm2 == 'O'
  349.                 =FWRITE(new, '"Mobile Home Parks",')
  350.             CASE M.Comm2 == 'P'
  351.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  352.             CASE M.Comm2 == 'Q'
  353.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  354.             CASE M.Comm2 == 'R'
  355.                 =FWRITE(new, '"Other",')
  356.             CASE M.Comm2 == 'S'
  357.                 =FWRITE(new, '"Restaurant",')
  358.             CASE M.Comm2 == 'T'
  359.                 =FWRITE(new, '"Retirement Properties/Communities",')
  360.             CASE M.Comm2 == 'U'
  361.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  362.             CASE M.Comm2 == 'V'
  363.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  364.             CASE M.Comm2 == 'W'
  365.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  366.             CASE M.Comm2 == 'X'
  367.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  368.             CASE M.Comm2 == 'Y'
  369.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  370.             OTHERWISE
  371.                 =FWRITE(new, ',')
  372.         ENDCASE
  373.     ENDIF
  374.  
  375.     IF NOT EMPTY(TRIM(M.Comm3))
  376.         DO CASE
  377.             CASE M.Comm3 == 'A'
  378.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  379.             CASE M.Comm3 == 'B'
  380.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  381.             CASE M.Comm3 == 'C'
  382.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  383.             CASE M.Comm3 == 'D'
  384.                 =FWRITE(new, '"Business Opportunities",')
  385.             CASE M.Comm3 == 'E'
  386.                 =FWRITE(new, '"Condo Conversions",')
  387.             CASE M.Comm3 == 'F'
  388.                 =FWRITE(new, '"Development",')
  389.             CASE M.Comm3 == 'G'
  390.                 =FWRITE(new, '"Exchanging",')
  391.             CASE M.Comm3 == 'H'
  392.                 =FWRITE(new, '"Farm and Land",')
  393.             CASE M.Comm3 == 'I'
  394.                 =FWRITE(new, '"Foreign Investment Property",')
  395.             CASE M.Comm3 == 'J'
  396.                 =FWRITE(new, '"General Commercial",')
  397.             CASE M.Comm3 == 'K'
  398.                 =FWRITE(new, '"Health Care Faculties",')
  399.             CASE M.Comm3 == 'L'
  400.                 =FWRITE(new, '"Hotels/Motels",')
  401.             CASE M.Comm3 == 'M'
  402.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  403.             CASE M.Comm3 == 'N'
  404.                 =FWRITE(new, '"Leasing",')
  405.             CASE M.Comm3 == 'O'
  406.                 =FWRITE(new, '"Mobile Home Parks",')
  407.             CASE M.Comm3 == 'P'
  408.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  409.             CASE M.Comm3 == 'Q'
  410.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  411.             CASE M.Comm3 == 'R'
  412.                 =FWRITE(new, '"Other",')
  413.             CASE M.Comm3 == 'S'
  414.                 =FWRITE(new, '"Restaurant",')
  415.             CASE M.Comm3 == 'T'
  416.                 =FWRITE(new, '"Retirement Properties/Communities",')
  417.             CASE M.Comm3 == 'U'
  418.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  419.             CASE M.Comm3 == 'V'
  420.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  421.             CASE M.Comm3 == 'W'
  422.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  423.             CASE M.Comm3 == 'X'
  424.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  425.             CASE M.Comm3 == 'Y'
  426.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  427.             OTHERWISE
  428.                 =FWRITE(new, ',')
  429.         ENDCASE
  430.     ENDIF
  431.  
  432.     IF NOT EMPTY(TRIM(M.Comm4))
  433.         DO CASE
  434.             CASE M.Comm4 == 'A'
  435.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  436.             CASE M.Comm4 == 'B'
  437.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  438.             CASE M.Comm4 == 'C'
  439.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  440.             CASE M.Comm4 == 'D'
  441.                 =FWRITE(new, '"Business Opportunities",')
  442.             CASE M.Comm4 == 'E'
  443.                 =FWRITE(new, '"Condo Conversions",')
  444.             CASE M.Comm4 == 'F'
  445.                 =FWRITE(new, '"Development",')
  446.             CASE M.Comm4 == 'G'
  447.                 =FWRITE(new, '"Exchanging",')
  448.             CASE M.Comm4 == 'H'
  449.                 =FWRITE(new, '"Farm and Land",')
  450.             CASE M.Comm4 == 'I'
  451.                 =FWRITE(new, '"Foreign Investment Property",')
  452.             CASE M.Comm4 == 'J'
  453.                 =FWRITE(new, '"General Commercial",')
  454.             CASE M.Comm4 == 'K'
  455.                 =FWRITE(new, '"Health Care Faculties",')
  456.             CASE M.Comm4 == 'L'
  457.                 =FWRITE(new, '"Hotels/Motels",')
  458.             CASE M.Comm4 == 'M'
  459.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  460.             CASE M.Comm4 == 'N'
  461.                 =FWRITE(new, '"Leasing",')
  462.             CASE M.Comm4 == 'O'
  463.                 =FWRITE(new, '"Mobile Home Parks",')
  464.             CASE M.Comm4 == 'P'
  465.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  466.             CASE M.Comm4 == 'Q'
  467.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  468.             CASE M.Comm4 == 'R'
  469.                 =FWRITE(new, '"Other",')
  470.             CASE M.Comm4 == 'S'
  471.                 =FWRITE(new, '"Restaurant",')
  472.             CASE M.Comm4 == 'T'
  473.                 =FWRITE(new, '"Retirement Properties/Communities",')
  474.             CASE M.Comm4 == 'U'
  475.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  476.             CASE M.Comm4 == 'V'
  477.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  478.             CASE M.Comm4 == 'W'
  479.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  480.             CASE M.Comm4 == 'X'
  481.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  482.             CASE M.Comm4 == 'Y'
  483.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  484.             OTHERWISE
  485.                 =FWRITE(new, ',')
  486.         ENDCASE
  487.     ENDIF
  488.  
  489.     IF NOT EMPTY(TRIM(M.Comm5))
  490.         DO CASE
  491.             CASE M.Comm5 == 'A'
  492.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  493.             CASE M.Comm5 == 'B'
  494.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  495.             CASE M.Comm5 == 'C'
  496.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  497.             CASE M.Comm5 == 'D'
  498.                 =FWRITE(new, '"Business Opportunities",')
  499.             CASE M.Comm5 == 'E'
  500.                 =FWRITE(new, '"Condo Conversions",')
  501.             CASE M.Comm5 == 'F'
  502.                 =FWRITE(new, '"Development",')
  503.             CASE M.Comm5 == 'G'
  504.                 =FWRITE(new, '"Exchanging",')
  505.             CASE M.Comm5 == 'H'
  506.                 =FWRITE(new, '"Farm and Land",')
  507.             CASE M.Comm5 == 'I'
  508.                 =FWRITE(new, '"Foreign Investment Property",')
  509.             CASE M.Comm5 == 'J'
  510.                 =FWRITE(new, '"General Commercial",')
  511.             CASE M.Comm5 == 'K'
  512.                 =FWRITE(new, '"Health Care Faculties",')
  513.             CASE M.Comm5 == 'L'
  514.                 =FWRITE(new, '"Hotels/Motels",')
  515.             CASE M.Comm5 == 'M'
  516.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  517.             CASE M.Comm5 == 'N'
  518.                 =FWRITE(new, '"Leasing",')
  519.             CASE M.Comm5 == 'O'
  520.                 =FWRITE(new, '"Mobile Home Parks",')
  521.             CASE M.Comm5 == 'P'
  522.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  523.             CASE M.Comm5 == 'Q'
  524.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  525.             CASE M.Comm5 == 'R'
  526.                 =FWRITE(new, '"Other",')
  527.             CASE M.Comm5 == 'S'
  528.                 =FWRITE(new, '"Restaurant",')
  529.             CASE M.Comm5 == 'T'
  530.                 =FWRITE(new, '"Retirement Properties/Communities",')
  531.             CASE M.Comm5 == 'U'
  532.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  533.             CASE M.Comm5 == 'V'
  534.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  535.             CASE M.Comm5 == 'W'
  536.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  537.             CASE M.Comm5 == 'X'
  538.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  539.             CASE M.Comm5 == 'Y'
  540.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  541.             OTHERWISE
  542.                 =FWRITE(new, ',')
  543.         ENDCASE
  544.     ENDIF
  545.  
  546.     IF NOT EMPTY(TRIM(M.OffName))
  547.         =FWRITE(new, '"'+TRIM(M.OffName)+'",')
  548.     ELSE
  549.         =FWRITE(new, ',')
  550.     ENDIF
  551.  
  552.     IF NOT EMPTY(TRIM(M.OffAdd1))
  553.         =FWRITE(new, '"'+TRIM(M.OffAdd1)+'",')
  554.     ELSE
  555.         =FWRITE(new, ',')
  556.     ENDIF
  557.  
  558.     IF NOT EMPTY(TRIM(M.OffAdd2))
  559.         =FWRITE(new, '"'+TRIM(M.OffAdd2)+'",')
  560.     ELSE
  561.         =FWRITE(new, ',')
  562.     ENDIF
  563.  
  564.     IF NOT EMPTY(TRIM(M.City))
  565.         =FWRITE(new, '"'+TRIM(M.City)+'",')
  566.     ELSE
  567.         =FWRITE(new, ',')
  568.     ENDIF
  569.  
  570.     IF NOT EMPTY(TRIM(M.State))
  571.         =FWRITE(new, '"'+UPPER(TRIM(M.State))+'",')
  572.     ELSE
  573.         =FWRITE(new, ',')
  574.     ENDIF
  575.  
  576.     IF NOT EMPTY(TRIM(M.Zip))
  577.         =FWRITE(new, '"'+TRIM(M.Zip)+'",')
  578.     ELSE
  579.         =FWRITE(new, ',')
  580.     ENDIF
  581.  
  582.     IF NOT EMPTY(TRIM(M.Country))
  583.         =FWRITE(new, '"'+TRIM(M.Country)+'",')
  584.     ELSE
  585.         =FWRITE(new, ',')
  586.     ENDIF
  587.  
  588.     IF NOT EMPTY(TRIM(M.Phone1))
  589.         =FWRITE(new, '"'+TRIM(M.Phone1)+'",')
  590.     ELSE
  591.         =FWRITE(new, ',')
  592.     ENDIF
  593.  
  594.     IF NOT EMPTY(TRIM(M.Phone2))
  595.         =FWRITE(new, '"'+TRIM(M.Phone2)+'",')
  596.     ELSE
  597.         =FWRITE(new, ',')
  598.     ENDIF
  599.  
  600.     IF NOT EMPTY(TRIM(M.Phone3))
  601.         =FWRITE(new, '"'+TRIM(M.Phone3)+'",')
  602.     ELSE
  603.         =FWRITE(new, ',')
  604.     ENDIF
  605.  
  606.     IF NOT EMPTY(TRIM(M.Phone4))
  607.         =FWRITE(new, '"'+TRIM(M.Phone4)+'",')
  608.     ELSE
  609.         =FWRITE(new, ',')
  610.     ENDIF
  611.  
  612.     IF NOT EMPTY(TRIM(M.FAX))
  613.         =FWRITE(new, '"'+TRIM(M.FAX)+'",')
  614.     ELSE
  615.         =FWRITE(new, ',')
  616.     ENDIF
  617.  
  618.     IF NOT EMPTY(TRIM(M.Picture))
  619.         =FWRITE(new, '"'+TRIM(M.Picture)+'",')
  620.     ELSE
  621.         =FWRITE(new, ',')
  622.     ENDIF        
  623.  
  624.     IF NOT EMPTY(TRIM(M.Service1))
  625.         =FWRITE(new, '"'+TRIM(M.Service1)+'",')
  626.     ELSE
  627.         =FWRITE(new, ',')
  628.     ENDIF
  629.  
  630.     IF NOT EMPTY(TRIM(M.Service2))
  631.         =FWRITE(new, '"'+TRIM(M.Service2)+'",')
  632.     ELSE
  633.         =FWRITE(new, ',')
  634.     ENDIF
  635.  
  636.     IF NOT EMPTY(TRIM(M.Service3))
  637.         =FWRITE(new, '"'+TRIM(M.Service3)+'",')
  638.     ELSE
  639.         =FWRITE(new, ',')
  640.     ENDIF
  641.  
  642.     IF NOT EMPTY(TRIM(M.Service4))
  643.         =FWRITE(new, '"'+TRIM(M.Service4)+'",')
  644.     ELSE
  645.         =FWRITE(new, ',')
  646.     ENDIF
  647.  
  648.     IF NOT EMPTY(TRIM(M.Open))
  649.         =FWRITE(new, TRIM(M.Open)+',')
  650.     ELSE
  651.         =FWRITE(new, ',')
  652.     ENDIF
  653.  
  654.     IF NOT EMPTY(TRIM(M.ADI))
  655.         =FWRITE(new, '"'+TRIM(M.ADI)+'",')
  656.     ELSE
  657.         =FWRITE(new, ',')
  658.     ENDIF
  659.  
  660.     IF NOT EMPTY(TRIM(M.Page))
  661.         =FWRITE(new, '"'+TRIM(M.Page)+'",')
  662.     ELSE
  663.         =FWRITE(new, ',')
  664.     ENDIF
  665.  
  666.     IF NOT EMPTY(TRIM(M.Coor))
  667.         =FWRITE(new, '"'+TRIM(M.Coor)+'",')
  668.     ELSE
  669.         =FWRITE(new, ',')
  670.     ENDIF
  671.  
  672.     IF NOT EMPTY(TRIM(M.OffType))
  673.         =FWRITE(new, TRIM(M.OffType)+',')
  674.     ELSE
  675.         =FWRITE(new, ',')
  676.     ENDIF
  677.  
  678.     IF NOT EMPTY(TRIM(M.CityOver))
  679.         =FWRITE(new, '"'+TRIM(M.CityOver)+'",')
  680.     ELSE
  681.         =FWRITE(new, ',')
  682.     ENDIF
  683.  
  684.     IF NOT EMPTY(TRIM(M.RosterSta))
  685.         =FWRITE(new, '"'+TRIM(M.RosterSta)+'",')
  686.     ELSE
  687.         =FWRITE(new, ',')
  688.     ENDIF
  689.  
  690.     IF NOT EMPTY(TRIM(M.Rams))
  691.         =FWRITE(new, '"'+TRIM(M.Rams)+'",')
  692.     ELSE
  693.         =FWRITE(new, ',')
  694.     ENDIF
  695.  
  696.     IF NOT EMPTY(TRIM(M.Achiev))
  697.         =FWRITE(new, '"'+TRIM(M.Achiev)+'",')
  698.     ELSE
  699.         =FWRITE(new, ',')
  700.     ENDIF
  701.  
  702.     IF NOT EMPTY(TRIM(M.COMPUSERV))
  703.         =FPUTS(new, ALLTRIM(COMPUSERV)+',')
  704.     ELSE
  705.         =FPUTS(new, ',')
  706.     ENDIF
  707.     
  708.         IF PICTURE == 'Y'
  709.  
  710.             =FWRITE(bio, M.Unique+',')
  711.             
  712.             IF NOT EMPTY(TRIM(PhoneLoc))
  713.                 =FWRITE(bio, '"'+TRIM(PhoneLoc)+'",')
  714.             ELSE
  715.                 =FWRITE(bio, ',')
  716.             ENDIF
  717.             
  718.             IF NOT EMPTY(TRIM(HomePhone))
  719.                 =FWRITE(bio, '"'+TRIM(HomePhone)+'",')
  720.             ELSE
  721.                 =FWRITE(bio, ',')
  722.             ENDIF
  723.             
  724.             IF NOT EMPTY(TRIM(AgntFax))
  725.                 =FWRITE(bio, '"'+TRIM(AgntFax)+'",')
  726.             ELSE
  727.                 =FWRITE(bio, ',')
  728.             ENDIF
  729.             
  730.             IF NOT EMPTY(TRIM(AgntPager))
  731.                 =FWRITE(bio, '"'+TRIM(AgntPager)+'",')
  732.             ELSE
  733.                 =FWRITE(bio, ',')
  734.             ENDIF
  735.                 
  736.             IF NOT EMPTY(TRIM(AgntMobile))
  737.                 =FWRITE(bio, '"'+TRIM(AgntMobile)+'",')
  738.              ELSE
  739.                  =FWRITE(bio, ',')
  740.              ENDIF
  741.                  
  742.              IF NOT EMPTY(TRIM(CIVIC1))
  743.                 DO CASE                 
  744.                     CASE CIVIC1 == 'AGED'
  745.                         =FWRITE(bio, '"Aged Volunteer",')
  746.                     CASE CIVIC1 == 'ALCO'
  747.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  748.                     CASE CIVIC1 == 'ARMD'
  749.                         =FWRITE(bio, '"Armed Forces Reserves",')
  750.                     CASE CIVIC1 == 'BATT'
  751.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  752.                     CASE CIVIC1 == 'BGCL'
  753.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  754.                     CASE CIVIC1 == 'BGSC'
  755.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  756.                     CASE CIVIC1 == 'BOAR'
  757.                         =FWRITE(bio, '"Board of Realtors",')
  758.                     CASE CIVIC1 == 'BUSW'
  759.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  760.                     CASE CIVIC1 == 'CANC'
  761.                         =FWRITE(bio, '"Cancer Society",')
  762.                     CASE CIVIC1 == 'CARE'
  763.                         =FWRITE(bio, '"CARES",')
  764.                     CASE CIVIC1 == 'CIVI'
  765.                         =FWRITE(bio, '"Civic Activities",')
  766.                     CASE CIVIC1 == 'CF  '
  767.                         =FWRITE(bio, '"Cystic Fibrosis",')
  768.                     CASE CIVIC1 == 'CCJC'
  769.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  770.                     CASE CIVIC1 == 'CHSC'
  771.                         =FWRITE(bio, '"Church/School Volunteer",')
  772.                     CASE CIVIC1 == 'CMN '
  773.                         =FWRITE(bio, '"Children's Miracle Network",')
  774.                     CASE CIVIC1 == 'COAC'
  775.                         =FWRITE(bio, '"Coach Volunteer",')
  776.                     CASE CIVIC1 == 'COLL'
  777.                         =FWRITE(bio, '"College/Frat Alumni",')
  778.                     CASE CIVIC1 == 'COMM'
  779.                         =FWRITE(bio, '"Community Economic Devmt",')
  780.                     CASE CIVIC1 == 'CRSB'
  781.                         =FWRITE(bio, '"CRS/CRB",')
  782.                     CASE CIVIC1 == 'DELQ'
  783.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  784.                     CASE CIVIC1 == 'EAST'
  785.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  786.                     CASE CIVIC1 == 'EEMC'
  787.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  788.                     CASE CIVIC1 == 'ENVR'
  789.                         =FWRITE(bio, '"Environmental Concerns",')
  790.                     CASE CIVIC1 == 'FOST'
  791.                         =FWRITE(bio, '"Foster Care/Adoption",')
  792.                     CASE CIVIC1 == 'GRPE'
  793.                         =FWRITE(bio, '"Green Peace",')
  794.                     CASE CIVIC1 == 'HOBL'
  795.                         =FWRITE(bio, '"Home Builders",')
  796.                     CASE CIVIC1 == 'HOLS'
  797.                         =FWRITE(bio, '"Homeless",')
  798.                     CASE CIVIC1 == 'HOME'
  799.                         =FWRITE(bio, '"Home Owners Association",')
  800.                     CASE CIVIC1 == 'HOSP'
  801.                         =FWRITE(bio, '"Hospital Volunteer",')
  802.                     CASE CIVIC1 == 'HUMA'
  803.                         =FWRITE(bio, '"Humane Society",')
  804.                     CASE CIVIC1 == 'JRLG'
  805.                         =FWRITE(bio, '"Jr. League",')
  806.                     CASE CIVIC1 == 'KIWA'
  807.                         =FWRITE(bio, '"Kiwanis",')
  808.                     CASE CIVIC1 == 'KNCO'
  809.                         =FWRITE(bio, '"Knights of Columbus",')
  810.                     CASE CIVIC1 == 'LION'
  811.                         =FWRITE(bio, '"Lions Clubs",')
  812.                     CASE CIVIC1 == 'LITL'
  813.                         =FWRITE(bio, '"Little League",')
  814.                     CASE CIVIC1 == 'MAKE'
  815.                         =FWRITE(bio, '"Make-A-Wish",')
  816.                     CASE CIVIC1 == 'MASO'
  817.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  818.                     CASE CIVIC1 == 'MEAL'
  819.                         =FWRITE(bio, '"Meals on Wheels",')
  820.                     CASE CIVIC1 == 'MEDL'
  821.                         =FWRITE(bio, '"Medical Auxillary",')
  822.                     CASE CIVIC1 == 'MS  '
  823.                         =FWRITE(bio, '"Multiple Sclerosis",')
  824.                     CASE CIVIC1 == 'OPT '
  825.                         =FWRITE(bio, '"Optimist",')
  826.                     CASE CIVIC1 == 'PTAO'
  827.                         =FWRITE(bio, '"PTA/PTO",')
  828.                     CASE CIVIC1 == 'POLI'
  829.                         =FWRITE(bio, '"Politics/Political Clubs",')
  830.                     CASE CIVIC1 == 'REDC'
  831.                         =FWRITE(bio, '"Red Cross",')
  832.                     CASE CIVIC1 == 'RETD'
  833.                         =FWRITE(bio, '"Retarded People",')
  834.                     CASE CIVIC1 == 'RONM'
  835.                         =FWRITE(bio, '"Ronald McDonald House",')
  836.                     CASE CIVIC1 == 'ROTY'
  837.                         =FWRITE(bio, '"Rotary",')
  838.                     CASE CIVIC1 == 'SADD'
  839.                         =FWRITE(bio, '"SADD/MADD",')
  840.                     CASE CIVIC1 == 'SIER'
  841.                         =FWRITE(bio, '"Sierra Club",')
  842.                     CASE CIVIC1 == 'SPOL'
  843.                         =FWRITE(bio, '"Special Olympics",')
  844.                     CASE CIVIC1 == 'STDY'
  845.                         =FWRITE(bio, '"Study Club",')
  846.                     CASE CIVIC1 == 'TOAS'
  847.                         =FWRITE(bio, '"Toastmasters",')
  848.                     CASE CIVIC1 == 'UNIT'
  849.                         =FWRITE(bio, '"United Way",')
  850.                     CASE CIVIC1 == 'VF  '
  851.                         =FWRITE(bio, '"VFW/Am Legion",')
  852.                     CASE CIVIC1 == 'WC  '
  853.                         =FWRITE(bio, '"Women's Council of Realtors",')
  854.                     CASE CIVIC1 == 'YMCA'
  855.                         =FWRITE(bio, '"YMCA/YWCA",')
  856.                       OTHERWISE
  857.                           =FWRITE(bio, ',')
  858.                   ENDCASE
  859.               ENDIF    
  860.  
  861.  
  862.              IF NOT EMPTY(TRIM(CIVIC2))
  863.                 DO CASE                 
  864.                     CASE CIVIC2 == 'AGED'
  865.                         =FWRITE(bio, '"Aged Volunteer",')
  866.                     CASE CIVIC2 == 'ALCO'
  867.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  868.                     CASE CIVIC2 == 'ARMD'
  869.                         =FWRITE(bio, '"Armed Forces Reserves",')
  870.                     CASE CIVIC2 == 'BATT'
  871.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  872.                     CASE CIVIC2 == 'BGCL'
  873.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  874.                     CASE CIVIC2 == 'BGSC'
  875.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  876.                     CASE CIVIC2 == 'BOAR'
  877.                         =FWRITE(bio, '"Board of Realtors",')
  878.                     CASE CIVIC2 == 'BUSW'
  879.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  880.                     CASE CIVIC2 == 'CANC'
  881.                         =FWRITE(bio, '"Cancer Society",')
  882.                     CASE CIVIC2 == 'CARE'
  883.                         =FWRITE(bio, '"CARES",')
  884.                     CASE CIVIC2 == 'CIVI'
  885.                         =FWRITE(bio, '"Civic Activities",')
  886.                     CASE CIVIC2 == 'CF  '
  887.                         =FWRITE(bio, '"Cystic Fibrosis",')
  888.                     CASE CIVIC2 == 'CCJC'
  889.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  890.                     CASE CIVIC2 == 'CHSC'
  891.                         =FWRITE(bio, '"Church/School Volunteer",')
  892.                     CASE CIVIC2 == 'CMN '
  893.                         =FWRITE(bio, '"Children's Miracle Network",')
  894.                     CASE CIVIC2 == 'COAC'
  895.                         =FWRITE(bio, '"Coach Volunteer",')
  896.                     CASE CIVIC2 == 'COLL'
  897.                         =FWRITE(bio, '"College/Frat Alumni",')
  898.                     CASE CIVIC2 == 'COMM'
  899.                         =FWRITE(bio, '"Community Economic Devmt",')
  900.                     CASE CIVIC2 == 'CRSB'
  901.                         =FWRITE(bio, '"CRS/CRB",')
  902.                     CASE CIVIC2 == 'DELQ'
  903.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  904.                     CASE CIVIC2 == 'EAST'
  905.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  906.                     CASE CIVIC2 == 'EEMC'
  907.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  908.                     CASE CIVIC2 == 'ENVR'
  909.                         =FWRITE(bio, '"Environmental Concerns",')
  910.                     CASE CIVIC2 == 'FOST'
  911.                         =FWRITE(bio, '"Foster Care/Adoption",')
  912.                     CASE CIVIC2 == 'GRPE'
  913.                         =FWRITE(bio, '"Green Peace",')
  914.                     CASE CIVIC2 == 'HOBL'
  915.                         =FWRITE(bio, '"Home Builders",')
  916.                     CASE CIVIC2 == 'HOLS'
  917.                         =FWRITE(bio, '"Homeless",')
  918.                     CASE CIVIC2 == 'HOME'
  919.                         =FWRITE(bio, '"Home Owners Association",')
  920.                     CASE CIVIC2 == 'HOSP'
  921.                         =FWRITE(bio, '"Hospital Volunteer",')
  922.                     CASE CIVIC2 == 'HUMA'
  923.                         =FWRITE(bio, '"Humane Society",')
  924.                     CASE CIVIC2 == 'JRLG'
  925.                         =FWRITE(bio, '"Jr. League",')
  926.                     CASE CIVIC2 == 'KIWA'
  927.                         =FWRITE(bio, '"Kiwanis",')
  928.                     CASE CIVIC2 == 'KNCO'
  929.                         =FWRITE(bio, '"Knights of Columbus",')
  930.                     CASE CIVIC2 == 'LION'
  931.                         =FWRITE(bio, '"Lions Clubs",')
  932.                     CASE CIVIC2 == 'LITL'
  933.                         =FWRITE(bio, '"Little League",')
  934.                     CASE CIVIC2 == 'MAKE'
  935.                         =FWRITE(bio, '"Make-A-Wish",')
  936.                     CASE CIVIC2 == 'MASO'
  937.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  938.                     CASE CIVIC2 == 'MEAL'
  939.                         =FWRITE(bio, '"Meals on Wheels",')
  940.                     CASE CIVIC2 == 'MEDL'
  941.                         =FWRITE(bio, '"Medical Auxillary",')
  942.                     CASE CIVIC2 == 'MS  '
  943.                         =FWRITE(bio, '"Multiple Sclerosis",')
  944.                     CASE CIVIC2 == 'OPT '
  945.                         =FWRITE(bio, '"Optimist",')
  946.                     CASE CIVIC2 == 'PTAO'
  947.                         =FWRITE(bio, '"PTA/PTO",')
  948.                     CASE CIVIC2 == 'POLI'
  949.                         =FWRITE(bio, '"Politics/Political Clubs",')
  950.                     CASE CIVIC2 == 'REDC'
  951.                         =FWRITE(bio, '"Red Cross",')
  952.                     CASE CIVIC2 == 'RETD'
  953.                         =FWRITE(bio, '"Retarded People",')
  954.                     CASE CIVIC2 == 'RONM'
  955.                         =FWRITE(bio, '"Ronald McDonald House",')
  956.                     CASE CIVIC2 == 'ROTY'
  957.                         =FWRITE(bio, '"Rotary",')
  958.                     CASE CIVIC2 == 'SADD'
  959.                         =FWRITE(bio, '"SADD/MADD",')
  960.                     CASE CIVIC2 == 'SIER'
  961.                         =FWRITE(bio, '"Sierra Club",')
  962.                     CASE CIVIC2 == 'SPOL'
  963.                         =FWRITE(bio, '"Special Olympics",')
  964.                     CASE CIVIC2 == 'STDY'
  965.                         =FWRITE(bio, '"Study Club",')
  966.                     CASE CIVIC2 == 'TOAS'
  967.                         =FWRITE(bio, '"Toastmasters",')
  968.                     CASE CIVIC2 == 'UNIT'
  969.                         =FWRITE(bio, '"United Way",')
  970.                     CASE CIVIC2 == 'VF  '
  971.                         =FWRITE(bio, '"VFW/Am Legion",')
  972.                     CASE CIVIC2 == 'WC  '
  973.                         =FWRITE(bio, '"Women's Council of Realtors",')
  974.                     CASE CIVIC2 == 'YMCA'
  975.                         =FWRITE(bio, '"YMCA/YWCA",')
  976.                       OTHERWISE
  977.                           =FWRITE(bio, ',')
  978.                   ENDCASE
  979.               ENDIF    
  980.                 
  981.              IF NOT EMPTY(TRIM(CIVIC1))
  982.                 DO CASE                 
  983.                     CASE CIVIC3 == 'AGED'
  984.                         =FWRITE(bio, '"Aged Volunteer",')
  985.                     CASE CIVIC3 == 'ALCO'
  986.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  987.                     CASE CIVIC3 == 'ARMD'
  988.                         =FWRITE(bio, '"Armed Forces Reserves",')
  989.                     CASE CIVIC3 == 'BATT'
  990.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  991.                     CASE CIVIC3 == 'BGCL'
  992.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  993.                     CASE CIVIC3 == 'BGSC'
  994.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  995.                     CASE CIVIC3 == 'BOAR'
  996.                         =FWRITE(bio, '"Board of Realtors",')
  997.                     CASE CIVIC3 == 'BUSW'
  998.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  999.                     CASE CIVIC3 == 'CANC'
  1000.                         =FWRITE(bio, '"Cancer Society",')
  1001.                     CASE CIVIC3 == 'CARE'
  1002.                         =FWRITE(bio, '"CARES",')
  1003.                     CASE CIVIC3 == 'CIVI'
  1004.                         =FWRITE(bio, '"Civic Activities",')
  1005.                     CASE CIVIC3 == 'CF  '
  1006.                         =FWRITE(bio, '"Cystic Fibrosis",')
  1007.                     CASE CIVIC3 == 'CCJC'
  1008.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  1009.                     CASE CIVIC3 == 'CHSC'
  1010.                         =FWRITE(bio, '"Church/School Volunteer",')
  1011.                     CASE CIVIC3 == 'CMN '
  1012.                         =FWRITE(bio, '"Children's Miracle Network",')
  1013.                     CASE CIVIC3 == 'COAC'
  1014.                         =FWRITE(bio, '"Coach Volunteer",')
  1015.                     CASE CIVIC3 == 'COLL'
  1016.                         =FWRITE(bio, '"College/Frat Alumni",')
  1017.                     CASE CIVIC3 == 'COMM'
  1018.                         =FWRITE(bio, '"Community Economic Devmt",')
  1019.                     CASE CIVIC3 == 'CRSB'
  1020.                         =FWRITE(bio, '"CRS/CRB",')
  1021.                     CASE CIVIC3 == 'DELQ'
  1022.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  1023.                     CASE CIVIC3 == 'EAST'
  1024.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  1025.                     CASE CIVIC3 == 'EEMC'
  1026.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  1027.                     CASE CIVIC3 == 'ENVR'
  1028.                         =FWRITE(bio, '"Environmental Concerns",')
  1029.                     CASE CIVIC3 == 'FOST'
  1030.                         =FWRITE(bio, '"Foster Care/Adoption",')
  1031.                     CASE CIVIC3 == 'GRPE'
  1032.                         =FWRITE(bio, '"Green Peace",')
  1033.                     CASE CIVIC3 == 'HOBL'
  1034.                         =FWRITE(bio, '"Home Builders",')
  1035.                     CASE CIVIC3 == 'HOLS'
  1036.                         =FWRITE(bio, '"Homeless",')
  1037.                     CASE CIVIC3 == 'HOME'
  1038.                         =FWRITE(bio, '"Home Owners Association",')
  1039.                     CASE CIVIC3 == 'HOSP'
  1040.                         =FWRITE(bio, '"Hospital Volunteer",')
  1041.                     CASE CIVIC3 == 'HUMA'
  1042.                         =FWRITE(bio, '"Humane Society",')
  1043.                     CASE CIVIC3 == 'JRLG'
  1044.                         =FWRITE(bio, '"Jr. League",')
  1045.                     CASE CIVIC3 == 'KIWA'
  1046.                         =FWRITE(bio, '"Kiwanis",')
  1047.                     CASE CIVIC3 == 'KNCO'
  1048.                         =FWRITE(bio, '"Knights of Columbus",')
  1049.                     CASE CIVIC3 == 'LION'
  1050.                         =FWRITE(bio, '"Lions Clubs",')
  1051.                     CASE CIVIC3 == 'LITL'
  1052.                         =FWRITE(bio, '"Little League",')
  1053.                     CASE CIVIC3 == 'MAKE'
  1054.                         =FWRITE(bio, '"Make-A-Wish",')
  1055.                     CASE CIVIC3 == 'MASO'
  1056.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  1057.                     CASE CIVIC3 == 'MEAL'
  1058.                         =FWRITE(bio, '"Meals on Wheels",')
  1059.                     CASE CIVIC3 == 'MEDL'
  1060.                         =FWRITE(bio, '"Medical Auxillary",')
  1061.                     CASE CIVIC3 == 'MS  '
  1062.                         =FWRITE(bio, '"Multiple Sclerosis",')
  1063.                     CASE CIVIC3 == 'OPT '
  1064.                         =FWRITE(bio, '"Optimist",')
  1065.                     CASE CIVIC3 == 'PTAO'
  1066.                         =FWRITE(bio, '"PTA/PTO",')
  1067.                     CASE CIVIC3 == 'POLI'
  1068.                         =FWRITE(bio, '"Politics/Political Clubs",')
  1069.                     CASE CIVIC3 == 'REDC'
  1070.                         =FWRITE(bio, '"Red Cross",')
  1071.                     CASE CIVIC3 == 'RETD'
  1072.                         =FWRITE(bio, '"Retarded People",')
  1073.                     CASE CIVIC3 == 'RONM'
  1074.                         =FWRITE(bio, '"Ronald McDonald House",')
  1075.                     CASE CIVIC3 == 'ROTY'
  1076.                         =FWRITE(bio, '"Rotary",')
  1077.                     CASE CIVIC3 == 'SADD'
  1078.                         =FWRITE(bio, '"SADD/MADD",')
  1079.                     CASE CIVIC3 == 'SIER'
  1080.                         =FWRITE(bio, '"Sierra Club",')
  1081.                     CASE CIVIC3 == 'SPOL'
  1082.                         =FWRITE(bio, '"Special Olympics",')
  1083.                     CASE CIVIC3 == 'STDY'
  1084.                         =FWRITE(bio, '"Study Club",')
  1085.                     CASE CIVIC3 == 'TOAS'
  1086.                         =FWRITE(bio, '"Toastmasters",')
  1087.                     CASE CIVIC3 == 'UNIT'
  1088.                         =FWRITE(bio, '"United Way",')
  1089.                     CASE CIVIC3 == 'VF  '
  1090.                         =FWRITE(bio, '"VFW/Am Legion",')
  1091.                     CASE CIVIC3 == 'WC  '
  1092.                         =FWRITE(bio, '"Women's Council of Realtors",')
  1093.                     CASE CIVIC3 == 'YMCA'
  1094.                         =FWRITE(bio, '"YMCA/YWCA",')
  1095.                       OTHERWISE
  1096.                           =FWRITE(bio, ',')
  1097.                   ENDCASE
  1098.               ENDIF    
  1099.                 
  1100.             IF NOT EMPTY(TRIM(HOBBY1))
  1101.                 DO CASE
  1102.                 
  1103.                     CASE HOBBY1 == 'ANTC' 
  1104.                         =FWRITE(bio, '"Antique Cars",')
  1105.                     CASE HOBBY1 == 'ANTQ' 
  1106.                         =FWRITE(bio, '"Antiques",')
  1107.                     CASE HOBBY1 == 'ARCH' 
  1108.                         =FWRITE(bio, '"Architecture",')
  1109.                     CASE HOBBY1 == 'ART '
  1110.                         =FWRITE(bio, '"Art/Painting",')
  1111.                     CASE HOBBY1 == 'AUTO' 
  1112.                         =FWRITE(bio, '"Auto Racing",')
  1113.                     CASE HOBBY1 == 'BASK' 
  1114.                         =FWRITE(bio, '"Basketball",')
  1115.                     CASE HOBBY1 == 'BILL' 
  1116.                         =FWRITE(bio, '"Billiards",')
  1117.                     CASE HOBBY1 == 'BIKE' 
  1118.                         =FWRITE(bio, '"Biking",')
  1119.                     CASE HOBBY1 == 'BIRD' 
  1120.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1121.                     CASE HOBBY1 == 'BOAT' 
  1122.                         =FWRITE(bio, '"Boating/Sailing",')
  1123.                     CASE HOBBY1 == 'BOWL' 
  1124.                         =FWRITE(bio, '"Bowling",')
  1125.                     CASE HOBBY1 == 'BRID' 
  1126.                         =FWRITE(bio, '"Bridge",')
  1127.                     CASE HOBBY1 == 'CHOR' 
  1128.                         =FWRITE(bio, '"Choir/Singing",')
  1129.                     CASE HOBBY1 == 'CHRK' 
  1130.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1131.                     CASE HOBBY1 == 'COLL' 
  1132.                         =FWRITE(bio, '"Collecting",')
  1133.                     CASE HOBBY1 == 'COMP' 
  1134.                         =FWRITE(bio, '"Computers",')
  1135.                     CASE HOBBY1 == 'COOK' 
  1136.                         =FWRITE(bio, '"Cooking",')
  1137.                     CASE HOBBY1 == 'CURL' 
  1138.                         =FWRITE(bio, '"Curling",')
  1139.                     CASE HOBBY1 == 'DANC' 
  1140.                         =FWRITE(bio, '"Dancing",')
  1141.                     CASE HOBBY1 == 'DOGS' 
  1142.                         =FWRITE(bio, '"Dogs/Cats",')
  1143.                     CASE HOBBY1 == 'DRAM' 
  1144.                         =FWRITE(bio, '"Drama Groups",')
  1145.                     CASE HOBBY1 == 'EDUC' 
  1146.                         =FWRITE(bio, '"Education/Training/Growth",')
  1147.                     CASE HOBBY1 == 'FARM' 
  1148.                         =FWRITE(bio, '"Farming",')
  1149.                     CASE HOBBY1 == 'FITN' 
  1150.                         =FWRITE(bio, '"Fitness",')
  1151.                     CASE HOBBY1 == 'FLY '
  1152.                         =FWRITE(bio, '"Flying",')
  1153.                     CASE HOBBY1 == 'FOOD' 
  1154.                         =FWRITE(bio, '"Food/Wine",')
  1155.                     CASE HOBBY1 == 'GAMB' 
  1156.                         =FWRITE(bio, '"Gambling",')
  1157.                     CASE HOBBY1 == 'GARD' 
  1158.                         =FWRITE(bio, '"Gardening",')
  1159.                     CASE HOBBY1 == 'GOLF' 
  1160.                         =FWRITE(bio, '"Golf",')
  1161.                     CASE HOBBY1 == 'HIKE' 
  1162.                         =FWRITE(bio, '"Hiking/Camping",')
  1163.                     CASE HOBBY1 == 'HIST' 
  1164.                         =FWRITE(bio, '"Historical Society",')
  1165.                     CASE HOBBY1 == 'HOCK' 
  1166.                         =FWRITE(bio, '"Hockey",')
  1167.                     CASE HOBBY1 == 'HORS' 
  1168.                         =FWRITE(bio, '"Horses",')
  1169.                     CASE HOBBY1 == 'HOT '
  1170.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1171.                     CASE HOBBY1 == 'HUNT' 
  1172.                         =FWRITE(bio, '"Hunt/Fish",')
  1173.                     CASE HOBBY1 == 'INDE' 
  1174.                         =FWRITE(bio, '"Interior Decorating",')
  1175.                     CASE HOBBY1 == 'MART' 
  1176.                         =FWRITE(bio, '"Martial Arts",')
  1177.                     CASE HOBBY1 == 'MODL' 
  1178.                         =FWRITE(bio, '"Model Planes/Trains",')
  1179.                     CASE HOBBY1 == 'MOTO' 
  1180.                         =FWRITE(bio, '"Motorcycles",')
  1181.                     CASE HOBBY1 == 'MUIN' 
  1182.                         =FWRITE(bio, '"Musical Instruments",')
  1183.                     CASE HOBBY1 == 'MUSE' 
  1184.                         =FWRITE(bio, '"Museums",')
  1185.                     CASE HOBBY1 == 'MUSI' 
  1186.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1187.                     CASE HOBBY1 == 'PHOT' 
  1188.                         =FWRITE(bio, '"Photography",')
  1189.                     CASE HOBBY1 == 'READ' 
  1190.                         =FWRITE(bio, '"Reading",')
  1191.                     CASE HOBBY1 == 'SCUB' 
  1192.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1193.                     CASE HOBBY1 == 'SEW '
  1194.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1195.                     CASE HOBBY1 == 'SHOP' 
  1196.                         =FWRITE(bio, '"Shoppping",')
  1197.                     CASE HOBBY1 == 'SHOT' 
  1198.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1199.                     CASE HOBBY1 == 'SNOM' 
  1200.                         =FWRITE(bio, '"Snowmobiling",')
  1201.                     CASE HOBBY1 == 'SNOS' 
  1202.                         =FWRITE(bio, '"Snowskiing",')
  1203.                     CASE HOBBY1 == 'SOCC' 
  1204.                         =FWRITE(bio, '"Soccer",')
  1205.                     CASE HOBBY1 == 'SOFT' 
  1206.                         =FWRITE(bio, '"Softball",')
  1207.                     CASE HOBBY1 == 'SPEC' 
  1208.                         =FWRITE(bio, '"Spectator Sports",')
  1209.                     CASE HOBBY1 == 'SQUA' 
  1210.                         =FWRITE(bio, '"Squash",')
  1211.                     CASE HOBBY1 == 'STGL' 
  1212.                         =FWRITE(bio, '"Stained Glass",')
  1213.                     CASE HOBBY1 == 'SWIM' 
  1214.                         =FWRITE(bio, '"Swimming",')
  1215.                     CASE HOBBY1 == 'TENN' 
  1216.                         =FWRITE(bio, '"Tennis",')
  1217.                     CASE HOBBY1 == 'THEA' 
  1218.                         =FWRITE(bio, '"Theatre/Movies",')
  1219.                     CASE HOBBY1 == 'TRAV' 
  1220.                         =FWRITE(bio, '"Travel",')
  1221.                     CASE HOBBY1 == 'VOLL' 
  1222.                         =FWRITE(bio, '"Volleyball",')
  1223.                     CASE HOBBY1 == 'WATS' 
  1224.                         =FWRITE(bio, '"Water Skiing",')
  1225.                     CASE HOBBY1 == 'WELF' 
  1226.                         =FWRITE(bio, '"Weightlifting",')
  1227.                     CASE HOBBY1 == 'WOOD' 
  1228.                         =FWRITE(bio, '"Woodworking",')
  1229.                     CASE HOBBY1 == 'WRIT' 
  1230.                         =FWRITE(bio, '"Writing",')
  1231.                     CASE HOBBY1 == 'YOGA' 
  1232.                         =FWRITE(bio, '"Yoga/Meditation",')
  1233.                     OTHERWISE    
  1234.                         =FWRITE(bio, ',')
  1235.  
  1236.                 ENDCASE
  1237.             ENDIF
  1238.                 
  1239.             IF NOT EMPTY(TRIM(HOBBY2))
  1240.                 DO CASE
  1241.                 
  1242.                     CASE HOBBY2 == 'ANTC' 
  1243.                         =FWRITE(bio, '"Antique Cars",')
  1244.                     CASE HOBBY2 == 'ANTQ' 
  1245.                         =FWRITE(bio, '"Antiques",')
  1246.                     CASE HOBBY2 == 'ARCH' 
  1247.                         =FWRITE(bio, '"Architecture",')
  1248.                     CASE HOBBY2 == 'ART '
  1249.                         =FWRITE(bio, '"Art/Painting",')
  1250.                     CASE HOBBY2 == 'AUTO' 
  1251.                         =FWRITE(bio, '"Auto Racing",')
  1252.                     CASE HOBBY2 == 'BASK' 
  1253.                         =FWRITE(bio, '"Basketball",')
  1254.                     CASE HOBBY2 == 'BILL' 
  1255.                         =FWRITE(bio, '"Billiards",')
  1256.                     CASE HOBBY2 == 'BIKE' 
  1257.                         =FWRITE(bio, '"Biking",')
  1258.                     CASE HOBBY2 == 'BIRD' 
  1259.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1260.                     CASE HOBBY2 == 'BOAT' 
  1261.                         =FWRITE(bio, '"Boating/Sailing",')
  1262.                     CASE HOBBY2 == 'BOWL' 
  1263.                         =FWRITE(bio, '"Bowling",')
  1264.                     CASE HOBBY2 == 'BRID' 
  1265.                         =FWRITE(bio, '"Bridge",')
  1266.                     CASE HOBBY2 == 'CHOR' 
  1267.                         =FWRITE(bio, '"Choir/Singing",')
  1268.                     CASE HOBBY2 == 'CHRK' 
  1269.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1270.                     CASE HOBBY2 == 'COLL' 
  1271.                         =FWRITE(bio, '"Collecting",')
  1272.                     CASE HOBBY2 == 'COMP' 
  1273.                         =FWRITE(bio, '"Computers",')
  1274.                     CASE HOBBY2 == 'COOK' 
  1275.                         =FWRITE(bio, '"Cooking",')
  1276.                     CASE HOBBY2 == 'CURL' 
  1277.                         =FWRITE(bio, '"Curling",')
  1278.                     CASE HOBBY2 == 'DANC' 
  1279.                         =FWRITE(bio, '"Dancing",')
  1280.                     CASE HOBBY2 == 'DOGS' 
  1281.                         =FWRITE(bio, '"Dogs/Cats",')
  1282.                     CASE HOBBY2 == 'DRAM' 
  1283.                         =FWRITE(bio, '"Drama Groups",')
  1284.                     CASE HOBBY2 == 'EDUC' 
  1285.                         =FWRITE(bio, '"Education/Training/Growth",')
  1286.                     CASE HOBBY2 == 'FARM' 
  1287.                         =FWRITE(bio, '"Farming",')
  1288.                     CASE HOBBY2 == 'FITN' 
  1289.                         =FWRITE(bio, '"Fitness",')
  1290.                     CASE HOBBY2 == 'FLY '
  1291.                         =FWRITE(bio, '"Flying",')
  1292.                     CASE HOBBY2 == 'FOOD' 
  1293.                         =FWRITE(bio, '"Food/Wine",')
  1294.                     CASE HOBBY2 == 'GAMB' 
  1295.                         =FWRITE(bio, '"Gambling",')
  1296.                     CASE HOBBY2 == 'GARD' 
  1297.                         =FWRITE(bio, '"Gardening",')
  1298.                     CASE HOBBY2 == 'GOLF' 
  1299.                         =FWRITE(bio, '"Golf",')
  1300.                     CASE HOBBY2 == 'HIKE' 
  1301.                         =FWRITE(bio, '"Hiking/Camping",')
  1302.                     CASE HOBBY2 == 'HIST' 
  1303.                         =FWRITE(bio, '"Historical Society",')
  1304.                     CASE HOBBY2 == 'HOCK' 
  1305.                         =FWRITE(bio, '"Hockey",')
  1306.                     CASE HOBBY2 == 'HORS' 
  1307.                         =FWRITE(bio, '"Horses",')
  1308.                     CASE HOBBY2 == 'HOT '
  1309.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1310.                     CASE HOBBY2 == 'HUNT' 
  1311.                         =FWRITE(bio, '"Hunt/Fish",')
  1312.                     CASE HOBBY2 == 'INDE' 
  1313.                         =FWRITE(bio, '"Interior Decorating",')
  1314.                     CASE HOBBY2 == 'MART' 
  1315.                         =FWRITE(bio, '"Martial Arts",')
  1316.                     CASE HOBBY2 == 'MODL' 
  1317.                         =FWRITE(bio, '"Model Planes/Trains",')
  1318.                     CASE HOBBY2 == 'MOTO' 
  1319.                         =FWRITE(bio, '"Motorcycles",')
  1320.                     CASE HOBBY2 == 'MUIN' 
  1321.                         =FWRITE(bio, '"Musical Instruments",')
  1322.                     CASE HOBBY2 == 'MUSE' 
  1323.                         =FWRITE(bio, '"Museums",')
  1324.                     CASE HOBBY2 == 'MUSI' 
  1325.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1326.                     CASE HOBBY2 == 'PHOT' 
  1327.                         =FWRITE(bio, '"Photography",')
  1328.                     CASE HOBBY2 == 'READ' 
  1329.                         =FWRITE(bio, '"Reading",')
  1330.                     CASE HOBBY2 == 'SCUB' 
  1331.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1332.                     CASE HOBBY2 == 'SEW '
  1333.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1334.                     CASE HOBBY2 == 'SHOP' 
  1335.                         =FWRITE(bio, '"Shoppping",')
  1336.                     CASE HOBBY2 == 'SHOT' 
  1337.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1338.                     CASE HOBBY2 == 'SNOM' 
  1339.                         =FWRITE(bio, '"Snowmobiling",')
  1340.                     CASE HOBBY2 == 'SNOS' 
  1341.                         =FWRITE(bio, '"Snowskiing",')
  1342.                     CASE HOBBY2 == 'SOCC' 
  1343.                         =FWRITE(bio, '"Soccer",')
  1344.                     CASE HOBBY2 == 'SOFT' 
  1345.                         =FWRITE(bio, '"Softball",')
  1346.                     CASE HOBBY2 == 'SPEC' 
  1347.                         =FWRITE(bio, '"Spectator Sports",')
  1348.                     CASE HOBBY2 == 'SQUA' 
  1349.                         =FWRITE(bio, '"Squash",')
  1350.                     CASE HOBBY2 == 'STGL' 
  1351.                         =FWRITE(bio, '"Stained Glass",')
  1352.                     CASE HOBBY2 == 'SWIM' 
  1353.                         =FWRITE(bio, '"Swimming",')
  1354.                     CASE HOBBY2 == 'TENN' 
  1355.                         =FWRITE(bio, '"Tennis",')
  1356.                     CASE HOBBY2 == 'THEA' 
  1357.                         =FWRITE(bio, '"Theatre/Movies",')
  1358.                     CASE HOBBY2 == 'TRAV' 
  1359.                         =FWRITE(bio, '"Travel",')
  1360.                     CASE HOBBY2 == 'VOLL' 
  1361.                         =FWRITE(bio, '"Volleyball",')
  1362.                     CASE HOBBY2 == 'WATS' 
  1363.                         =FWRITE(bio, '"Water Skiing",')
  1364.                     CASE HOBBY2 == 'WELF' 
  1365.                         =FWRITE(bio, '"Weightlifting",')
  1366.                     CASE HOBBY2 == 'WOOD' 
  1367.                         =FWRITE(bio, '"Woodworking",')
  1368.                     CASE HOBBY2 == 'WRIT' 
  1369.                         =FWRITE(bio, '"Writing",')
  1370.                     CASE HOBBY2 == 'YOGA' 
  1371.                         =FWRITE(bio, '"Yoga/Meditation",')
  1372.                     OTHERWISE    
  1373.                         =FWRITE(bio, ',')
  1374.  
  1375.                 ENDCASE
  1376.             ENDIF
  1377.             
  1378.             IF NOT EMPTY(TRIM(HOBBY3))
  1379.                 DO CASE
  1380.                 
  1381.                     CASE HOBBY3 == 'ANTC' 
  1382.                         =FWRITE(bio, '"Antique Cars",')
  1383.                     CASE HOBBY3 == 'ANTQ' 
  1384.                         =FWRITE(bio, '"Antiques",')
  1385.                     CASE HOBBY3 == 'ARCH' 
  1386.                         =FWRITE(bio, '"Architecture",')
  1387.                     CASE HOBBY3 == 'ART '
  1388.                         =FWRITE(bio, '"Art/Painting",')
  1389.                     CASE HOBBY3 == 'AUTO' 
  1390.                         =FWRITE(bio, '"Auto Racing",')
  1391.                     CASE HOBBY3 == 'BASK' 
  1392.                         =FWRITE(bio, '"Basketball",')
  1393.                     CASE HOBBY3 == 'BILL' 
  1394.                         =FWRITE(bio, '"Billiards",')
  1395.                     CASE HOBBY3 == 'BIKE' 
  1396.                         =FWRITE(bio, '"Biking",')
  1397.                     CASE HOBBY3 == 'BIRD' 
  1398.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1399.                     CASE HOBBY3 == 'BOAT' 
  1400.                         =FWRITE(bio, '"Boating/Sailing",')
  1401.                     CASE HOBBY3 == 'BOWL' 
  1402.                         =FWRITE(bio, '"Bowling",')
  1403.                     CASE HOBBY3 == 'BRID' 
  1404.                         =FWRITE(bio, '"Bridge",')
  1405.                     CASE HOBBY3 == 'CHOR' 
  1406.                         =FWRITE(bio, '"Choir/Singing",')
  1407.                     CASE HOBBY3 == 'CHRK' 
  1408.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1409.                     CASE HOBBY3 == 'COLL' 
  1410.                         =FWRITE(bio, '"Collecting",')
  1411.                     CASE HOBBY3 == 'COMP' 
  1412.                         =FWRITE(bio, '"Computers",')
  1413.                     CASE HOBBY3 == 'COOK' 
  1414.                         =FWRITE(bio, '"Cooking",')
  1415.                     CASE HOBBY3 == 'CURL' 
  1416.                         =FWRITE(bio, '"Curling",')
  1417.                     CASE HOBBY3 == 'DANC' 
  1418.                         =FWRITE(bio, '"Dancing",')
  1419.                     CASE HOBBY3 == 'DOGS' 
  1420.                         =FWRITE(bio, '"Dogs/Cats",')
  1421.                     CASE HOBBY3 == 'DRAM' 
  1422.                         =FWRITE(bio, '"Drama Groups",')
  1423.                     CASE HOBBY3 == 'EDUC' 
  1424.                         =FWRITE(bio, '"Education/Training/Growth",')
  1425.                     CASE HOBBY3 == 'FARM' 
  1426.                         =FWRITE(bio, '"Farming",')
  1427.                     CASE HOBBY3 == 'FITN' 
  1428.                         =FWRITE(bio, '"Fitness",')
  1429.                     CASE HOBBY3 == 'FLY '
  1430.                         =FWRITE(bio, '"Flying",')
  1431.                     CASE HOBBY3 == 'FOOD' 
  1432.                         =FWRITE(bio, '"Food/Wine",')
  1433.                     CASE HOBBY3 == 'GAMB' 
  1434.                         =FWRITE(bio, '"Gambling",')
  1435.                     CASE HOBBY3 == 'GARD' 
  1436.                         =FWRITE(bio, '"Gardening",')
  1437.                     CASE HOBBY3 == 'GOLF' 
  1438.                         =FWRITE(bio, '"Golf",')
  1439.                     CASE HOBBY3 == 'HIKE' 
  1440.                         =FWRITE(bio, '"Hiking/Camping",')
  1441.                     CASE HOBBY3 == 'HIST' 
  1442.                         =FWRITE(bio, '"Historical Society",')
  1443.                     CASE HOBBY3 == 'HOCK' 
  1444.                         =FWRITE(bio, '"Hockey",')
  1445.                     CASE HOBBY3 == 'HORS' 
  1446.                         =FWRITE(bio, '"Horses",')
  1447.                     CASE HOBBY3 == 'HOT '
  1448.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1449.                     CASE HOBBY3 == 'HUNT' 
  1450.                         =FWRITE(bio, '"Hunt/Fish",')
  1451.                     CASE HOBBY3 == 'INDE' 
  1452.                         =FWRITE(bio, '"Interior Decorating",')
  1453.                     CASE HOBBY3 == 'MART' 
  1454.                         =FWRITE(bio, '"Martial Arts",')
  1455.                     CASE HOBBY3 == 'MODL' 
  1456.                         =FWRITE(bio, '"Model Planes/Trains",')
  1457.                     CASE HOBBY3 == 'MOTO' 
  1458.                         =FWRITE(bio, '"Motorcycles",')
  1459.                     CASE HOBBY3 == 'MUIN' 
  1460.                         =FWRITE(bio, '"Musical Instruments",')
  1461.                     CASE HOBBY3 == 'MUSE' 
  1462.                         =FWRITE(bio, '"Museums",')
  1463.                     CASE HOBBY3 == 'MUSI' 
  1464.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1465.                     CASE HOBBY3 == 'PHOT' 
  1466.                         =FWRITE(bio, '"Photography",')
  1467.                     CASE HOBBY3 == 'READ' 
  1468.                         =FWRITE(bio, '"Reading",')
  1469.                     CASE HOBBY3 == 'SCUB' 
  1470.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1471.                     CASE HOBBY3 == 'SEW '
  1472.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1473.                     CASE HOBBY3 == 'SHOP' 
  1474.                         =FWRITE(bio, '"Shoppping",')
  1475.                     CASE HOBBY3 == 'SHOT' 
  1476.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1477.                     CASE HOBBY3 == 'SNOM' 
  1478.                         =FWRITE(bio, '"Snowmobiling",')
  1479.                     CASE HOBBY3 == 'SNOS' 
  1480.                         =FWRITE(bio, '"Snowskiing",')
  1481.                     CASE HOBBY3 == 'SOCC' 
  1482.                         =FWRITE(bio, '"Soccer",')
  1483.                     CASE HOBBY3 == 'SOFT' 
  1484.                         =FWRITE(bio, '"Softball",')
  1485.                     CASE HOBBY3 == 'SPEC' 
  1486.                         =FWRITE(bio, '"Spectator Sports",')
  1487.                     CASE HOBBY3 == 'SQUA' 
  1488.                         =FWRITE(bio, '"Squash",')
  1489.                     CASE HOBBY3 == 'STGL' 
  1490.                         =FWRITE(bio, '"Stained Glass",')
  1491.                     CASE HOBBY3 == 'SWIM' 
  1492.                         =FWRITE(bio, '"Swimming",')
  1493.                     CASE HOBBY3 == 'TENN' 
  1494.                         =FWRITE(bio, '"Tennis",')
  1495.                     CASE HOBBY3 == 'THEA' 
  1496.                         =FWRITE(bio, '"Theatre/Movies",')
  1497.                     CASE HOBBY3 == 'TRAV' 
  1498.                         =FWRITE(bio, '"Travel",')
  1499.                     CASE HOBBY3 == 'VOLL' 
  1500.                         =FWRITE(bio, '"Volleyball",')
  1501.                     CASE HOBBY3 == 'WATS' 
  1502.                         =FWRITE(bio, '"Water Skiing",')
  1503.                     CASE HOBBY3 == 'WELF' 
  1504.                         =FWRITE(bio, '"Weightlifting",')
  1505.                     CASE HOBBY3 == 'WOOD' 
  1506.                         =FWRITE(bio, '"Woodworking",')
  1507.                     CASE HOBBY3 == 'WRIT' 
  1508.                         =FWRITE(bio, '"Writing",')
  1509.                     CASE HOBBY3 == 'YOGA' 
  1510.                         =FWRITE(bio, '"Yoga/Meditation",')
  1511.                     OTHERWISE    
  1512.                         =FWRITE(bio, ',')
  1513.  
  1514.                 ENDCASE
  1515.             ENDIF            
  1516.  
  1517.             IF NOT EMPTY(TRIM(MEMBER1))
  1518.                 =FWRITE(bio, '"'+TRIM(MEMBER1)+'",')
  1519.             ELSE
  1520.                 =FWRITE(bio, ',')
  1521.             ENDIF
  1522.                 
  1523.             IF NOT EMPTY(TRIM(MEMBER2))
  1524.                 =FWRITE(bio, '"'+TRIM(MEMBER2)+'",')
  1525.             ELSE
  1526.                 =FWRITE(bio, ',')
  1527.             ENDIF
  1528.                 
  1529.             IF NOT EMPTY(TRIM(MEMBER3))
  1530.                 =FWRITE(bio, '"'+TRIM(MEMBER3)+'",')
  1531.             ELSE
  1532.                 =FWRITE(bio, ',')
  1533.             ENDIF
  1534.                 
  1535.             IF NOT EMPTY(TRIM(Area1))
  1536.                 =FWRITE(bio, '"'+TRIM(Area1)+'",')
  1537.             ELSE
  1538.                 =FWRITE(bio, ',')
  1539.             ENDIF
  1540.                 
  1541.             IF NOT EMPTY(TRIM(Area2))
  1542.                 =FWRITE(bio, '"'+TRIM(Area2)+'",')
  1543.             ELSE
  1544.                 =FWRITE(bio, ',')
  1545.  
  1546.             ENDIF
  1547.                 
  1548.             IF NOT EMPTY(TRIM(Area3))
  1549.                 =FWRITE(bio, '"'+TRIM(Area3)+'",')
  1550.             ELSE
  1551.                 =FWRITE(bio, ',')
  1552.             ENDIF
  1553.                 
  1554.             IF NOT EMPTY(TRIM(Area4))
  1555.                 =FWRITE(bio, '"'+TRIM(Area4)+'",')
  1556.             ELSE
  1557.                 =FWRITE(bio, ',')
  1558.             ENDIF
  1559.                 
  1560.             IF NOT EMPTY(TRIM(Area5))
  1561.                 =FWRITE(bio, '"'+TRIM(Area5)+'",')
  1562.             ELSE
  1563.                 =FWRITE(bio, ',')
  1564.             ENDIF        
  1565.  
  1566.             IF NOT EMPTY(TRIM(Education))
  1567.                 =FWRITE(bio, '"'+TRIM(Education)+'",')
  1568.             ELSE
  1569.                 =FWRITE(bio, ',')
  1570.             ENDIF        
  1571.  
  1572.             IF NOT EMPTY(TRIM(Desig1))
  1573.                 =FWRITE(bio, '"'+TRIM(Desig1)+'",')
  1574.             ELSE
  1575.                 =FWRITE(bio, ',')
  1576.             ENDIF        
  1577.  
  1578.             IF NOT EMPTY(TRIM(Desig2))
  1579.                 =FWRITE(bio, '"'+TRIM(Desig2)+'",')
  1580.             ELSE
  1581.                 =FWRITE(bio, ',')
  1582.             ENDIF        
  1583.  
  1584.             IF NOT EMPTY(TRIM(Desig3))
  1585.                 =FWRITE(bio, '"'+TRIM(Desig3)+'",')
  1586.             ELSE
  1587.                 =FWRITE(bio, ',')
  1588.             ENDIF        
  1589.  
  1590.             IF NOT EMPTY(TRIM(Career))
  1591.                 =FWRITE(bio, '"'+TRIM(Career)+'",')
  1592.             ELSE
  1593.                 =FWRITE(bio, ',')
  1594.             ENDIF        
  1595.  
  1596.             IF NOT EMPTY(TRIM(Price_fr))
  1597.                 =FWRITE(bio, '"'+TRIM(Price_fr)+'",')
  1598.             ELSE
  1599.                 =FWRITE(bio, ',')
  1600.             ENDIF        
  1601.  
  1602.             IF NOT EMPTY(TRIM(Price_to))
  1603.                 =FWRITE(bio, '"'+TRIM(Price_to)+'",')
  1604.             ELSE
  1605.                 =FWRITE(bio, ',')
  1606.             ENDIF        
  1607.  
  1608.             IF NOT EMPTY(TRIM(Pref))
  1609.                 =FWRITE(bio, '"'+TRIM(Pref)+'",')
  1610.             ELSE
  1611.                 =FWRITE(bio, ',')
  1612.             ENDIF        
  1613.  
  1614.             IF NOT EMPTY(TRIM(Referal1))
  1615.                 =FWRITE(bio, '"'+TRIM(Referal1)+'",')
  1616.             ELSE
  1617.                 =FWRITE(bio, ',')
  1618.             ENDIF        
  1619.  
  1620.             IF NOT EMPTY(TRIM(Referal2))
  1621.                 =FWRITE(bio, '"'+TRIM(Referal2)+'",')
  1622.             ELSE
  1623.                 =FWRITE(bio, ',')
  1624.             ENDIF        
  1625.  
  1626.             IF NOT EMPTY(TRIM(Referal3))
  1627.                 =FWRITE(bio, '"'+TRIM(Referal3)+'",')
  1628.             ELSE
  1629.                 =FWRITE(bio, ',')
  1630.             ENDIF        
  1631.  
  1632.             IF NOT EMPTY(TRIM(Referal4))
  1633.                 =FWRITE(bio, '"'+TRIM(Referal4)+'",')
  1634.             ELSE
  1635.                 =FWRITE(bio, ',')
  1636.             ENDIF        
  1637.  
  1638.             IF NOT EMPTY(TRIM(ERCPaper))
  1639.                 =FWRITE(bio, '"'+TRIM(ERCPaper)+'",')
  1640.             ELSE
  1641.                 =FWRITE(bio, ',')
  1642.             ENDIF        
  1643.  
  1644.             IF NOT EMPTY(TRIM(Welcomekit))
  1645.                 =FWRITE(bio, '"'+TRIM(Welcomekit)+'",')
  1646.             ELSE
  1647.                 =FWRITE(bio, ',')
  1648.             ENDIF        
  1649.  
  1650.             IF NOT EMPTY(TRIM(Relocations))
  1651.                 =FWRITE(bio, TRIM(Relocations)+',')
  1652.             ELSE
  1653.                 =FWRITE(bio, ',')
  1654.             ENDIF        
  1655.  
  1656.             IF NOT EMPTY(TRIM(Picture))
  1657.                 =FWRITE(bio, '"'+TRIM(Picture)+'",')
  1658.             ELSE
  1659.                 =FWRITE(bio, ',')
  1660.             ENDIF        
  1661.  
  1662.             IF NOT EMPTY(TRIM(EntryDate))
  1663.                 =FWRITE(bio, TRIM(EntryDate)+',')
  1664.             ELSE
  1665.                 =FWRITE(bio, ',')
  1666.             ENDIF        
  1667.  
  1668.             IF NOT EMPTY(TRIM(BioSubs))
  1669.                 =FWRITE(bio, TRIM(BioSubs)+',')
  1670.             ELSE
  1671.                 =FWRITE(bio, ',')
  1672.             ENDIF        
  1673.  
  1674.             IF NOT EMPTY(TRIM(Info))
  1675.                 =FPUTS(bio, '"'+TRIM(Info)+'",')
  1676.             ELSE
  1677.                 =FPUTS(bio, ',')
  1678.             ENDIF        
  1679.             
  1680.         ENDIF
  1681.         
  1682.       Count = Count + 1    
  1683.  
  1684. ENDDO
  1685.  
  1686. =FCLOSE(bio)
  1687. =FCLOSE(handle)
  1688. =FCLOSE(new)
  1689.  
  1690. CLOSE ALL
  1691.